##############################################################################
###+------------+#############################################################
#+-| SAVESCRN() |-----------------------------------+#########################
#| +------------+ Saves a screen area to a variable |#########################
#+--------------------------------------------------+#########################
##############################################################################
##############################################################################
#+--| Summary |------------+##################################################
#|     #INCLUDE io.hdr     |##################################################
#+-------------------------+##################################################
##############################################################################
##############################################################################
#+--| Syntax |-------------------------------+################################
#|     FUNCTION UINT savescrn PROTOTYPE      |################################
#|      PARAMETERS VALUE INT upper_row,;     |################################
#|          VALUE INT upper_col, ;           |################################
#|          VALUE INT lower_row, ;           |################################
#|          VALUE INT lower_col              |################################
#+-------------------------------------------+################################
##############################################################################
##############################################################################
######+---| Description |----------------------------------------------+######
######| This function saves a screen area to a variable.  The variable |######
######| must be of type UINT.  To restore the screen variable, use the |######
######| restorescrn procedure.  Screens do not have to be restored in  |######
######| the order in which they were saved.                            |######
######+----------------------------------------------------------------+######
##############################################################################
##############################################################################
#########+--| Example 1 |-------------------------------------------+#########
#########| *    Save a portion of the screen prior to drawing a box |#########
#########|                                                          |#########
#########| s = savescrn( 10,10,14,70 )                              |#########
#########| fill( 10,10,14,70,"********","error",c,d,6)              |#########
#########+----------------------------------------------------------+#########
##############################################################################
##############################################################################
#########+--| Example 2 |-------------------------------------------+#########
#########| *    Save a screen area that is proportional to          |#########
#########| *    the message length.                                 |#########
#########|                                                          |#########
#########| k = 40-len( message ) / 2                                |#########
#########| q = savescrn( 22, k-2,24, k+len(message)+2 )             |#########
#########| @ 23,k SAY message                                       |#########
#########| k = get_key()               && wait for a key press      |#########
#########| restorescrn( q )                                         |#########
#########+----------------------------------------------------------+#########
##############################################################################